home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Utilities / MRQ / Install < prev    next >
Encoding:
Text File  |  1998-08-01  |  19.8 KB  |  536 lines

  1. ;***********************************************************
  2. ;* Installation script for MRQ, the MUI requester improver *
  3. ;* $VER: MRQ_Install 2.0 (01-Aug-98)                       *
  4. ;* © 1998 Matthias Bethke                                  *
  5. ;*                                                         *
  6. ;* ToDo: uninstall option                                  *
  7. ;***********************************************************
  8.  
  9. (procedure expertmsg msg
  10.     (if (> @user-level 1) (message (cat "\n\n" msg)))
  11. )
  12.  
  13. (procedure F_GetDir _prompt _help _default
  14.     (set #Where
  15.         (askdir
  16.             (prompt _prompt)
  17.             (help _help)
  18.             (default _default)
  19.         )
  20.     )
  21. )
  22.  
  23. (procedure F_findconfig
  24.     (set #Configfile "")
  25.     (iconinfo (dest #Installname) (gettooltype "CONFIGFILE" "#Configfile"))
  26.     (if    (not (strlen #Configfile))
  27.         (
  28.         (F_GetDir #P_WConfig #H_WConfig #WhereMRQ)
  29.         (set #Configfile (tackon #Where "MRQ.config"))
  30.         )
  31.     )
  32. )
  33.  
  34. (procedure F_findimages
  35.     (set #WhereImages "")
  36.     (iconinfo (dest #Installname) (gettooltype "IMAGES" "#WhereImages"))
  37.     (if    (not (strlen #WhereImages))
  38.         (
  39.         (F_GetDir #P_WImages #H_WImages #WhereMRQ)
  40.         (set #WhereImages (tackon #Where "MRQ-images"))
  41.         )
  42.     )
  43. )
  44.  
  45. (procedure F_copyconfig
  46.     (expertmsg (cat #M_CopyingConfig #Configfile))
  47.     (copyfiles
  48.         (source #cfgsrc)
  49.         (dest (pathonly #Configfile))
  50.         (newname "MRQ.config")
  51.         (optional askuser)
  52.     )
  53. )
  54.  
  55. (procedure F_copymrq icon
  56.     (if icon
  57.         (
  58.             (expertmsg (cat #M_CopyingMRQ #M_CopyingMRQIcon #M_To #WhereMRQ))
  59.             (copyfiles (source "MRQ") (infos) (dest #WhereMRQ) (optional askuser))
  60.         )
  61.         (
  62.             (expertmsg (cat #M_CopyingMRQ #M_To #WhereMRQ #M_KeepingMRQIcon))
  63.             (copyfiles (source "MRQ") (dest #WhereMRQ) (optional askuser))
  64.         )
  65.     )
  66. )
  67.  
  68.  
  69. (procedure F_ConfigMRQ
  70.     (if (not #WhereImages)
  71.         (iconinfo (dest #Installname) (gettooltype "IMAGES" "#WhereImages"))
  72.     )
  73.     (set #CfgOpts1
  74.         (askoptions
  75.             (prompt #P_ConfigOpts1)
  76.             (choices "pCENTERTEXT" "FRONTSCREEN" "MOUSEREQ" "NORTPATCH" "SAMEWIDTH" "SINGLEFRAME" "SIZEABLE" "TRANSPARENCY" "DEBUG")
  77.             (help #H_ConfigOpts1)
  78.             (default 16)
  79.         )
  80.     )
  81.     (set #CfgOpts2
  82.         (askoptions
  83.             (prompt #P_IButtons)
  84.             (help #H_IButtons)
  85.             (choices #C_UseIMB1 #C_UseIMB2)
  86.             (default 3)
  87.         )
  88.     )
  89.     (if (in #CfgOpts2 0 1)
  90.         (
  91.             (set #IButtonSet
  92.                 (askchoice
  93.                     (prompt #P_IButtonSet)
  94.                     (help #H_IButtonSet)
  95.                     (choices #C_SelectIBSet1 #C_SelectIBSet2 #C_SelectIBSet3)
  96.                     (default 0)
  97.                 )
  98.             )
  99.             (if (= #IButtonSet 0)
  100.                 (
  101.                     (set #IButton_Yes (tackon #WhereImages "MRQwin_Yes.brush"))
  102.                     (set #IButton_No (tackon #WhereImages "MRQwin_No.brush"))
  103.                     (set #IButton_Cancel (tackon #WhereImages "MRQwin_Cancel.brush"))
  104.                 )
  105.                 (if (= #IButtonSet 1)
  106.                     (
  107.                         (set #IButton_Yes (tackon #WhereImages "MRQ_Yes.brush"))
  108.                         (set #IButton_No (tackon #WhereImages "MRQ_No.brush"))
  109.                         (set #IButton_Cancel (tackon #WhereImages "MRQ_Cancel.brush"))
  110.                     )
  111.                     (
  112.                         (set #IButton_Yes
  113.                             (askfile(prompt (#P_AskCustomIB #W_Yes))    (help #H_AskCustomIB)    (default #WhereImages))
  114.                         )
  115.                         (set #IButton_No
  116.                             (askfile(prompt (#P_AskCustomIB #W_No))    (help #H_AskCustomIB)    (default #WhereImages))
  117.                         )
  118.                         (set #IButton_Cancel
  119.                             (askfile(prompt (#P_AskCustomIB #W_Cancel))    (help #H_AskCustomIB)    (default #WhereImages))
  120.                         )
  121.                     )
  122.                 )
  123.             )
  124.             (if (in #CfgOpts2 1)
  125.                 (set #IButtonsByTextStr
  126.                     (cat
  127.                         (askstring
  128.                             (prompt (#P_IBBT #W_Yes))
  129.                             (help #H_IBBT)
  130.                             (default #IBBTDefaultString_Yes)
  131.                         ) ","
  132.                         (askstring
  133.                             (prompt (#P_IBBT #W_No))
  134.                             (help #H_IBBT)
  135.                             (default #IBBTDefaultString_No)
  136.                         ) ","
  137.                         (askstring
  138.                             (prompt (#P_IBBT #W_Cancel))
  139.                             (help #H_IBBT)
  140.                             (default #IBBTDefaultString_Cancel)
  141.                         )
  142.                     )
  143.                 )
  144.             )
  145.         )
  146.     )
  147.     (set #RemapPrecision
  148.         (select
  149.             (askchoice
  150.                 (prompt #P_RemapPrecision)
  151.                 (help #H_RemapPrecision)
  152.                 (choices "Exact" "Image" "Icon" "GUI")
  153.                 (default 1)
  154.             )
  155.             "exact" "image" "icon" "gui"
  156.         )
  157.     )
  158.     (F_SetTooltypes)
  159. )
  160.  
  161. (procedure F_SetTooltypes
  162.     (if (in #CfgOpts1 0) (F_Booltype "CENTERTEXT" 1)        (F_Booltype "CENTERTEXT" 0))
  163.     (if (in #CfgOpts1 1) (F_Booltype "FRONTSCREEN" 1)    (F_Booltype "FRONTSCREEN" 0))
  164.     (if (in #CfgOpts1 2) (F_Booltype "MOUSEREQ" 1)            (F_Booltype "MOUSEREQ" 0))
  165.     (if (in #CfgOpts1 3) (F_Booltype "NORTPATCH" 1)        (F_Booltype "NORTPATCH" 0))
  166.     (if (in #CfgOpts1 4) (F_Booltype "SAMEWIDTH" 1)        (F_Booltype "SAMEWIDTH" 0))
  167.     (if (in #CfgOpts1 5) (F_Booltype "SINGLEFRAME" 1)    (F_Booltype "SINGLEFRAME" 0))
  168.     (if (in #CfgOpts1 6) (F_Booltype "SIZEABLE" 1)            (F_Booltype "SIZEABLE" 0))
  169.     (if (in #CfgOpts1 7) (F_Booltype "TRANSPARENCY" 1)    (F_Booltype "TRANSPARENCY" 0))
  170.     (if (in #CfgOpts1 8) (F_Booltype "DEBUG" 1)                (F_Booltype "DEBUG" 0))             
  171.  
  172.     (tooltype (dest #Installname) (settooltype "PRECISION" #RemapPrecision))
  173.  
  174.     (if (in #CfgOpts2 0 1)
  175.         (
  176.             (working #W_SettingIBTT)
  177.             (tooltype (dest #Installname) (settooltype "IMG_YES" #IButton_Yes))
  178.             (tooltype (dest #Installname) (settooltype "IMG_NO" #IButton_No))
  179.             (tooltype (dest #Installname) (settooltype "IMG_CANCEL" #IButton_Cancel))
  180.             (if (in #CfgOpts2 1)
  181.                 (
  182.                     (working #SettingIBBT)
  183.                     (tooltype (dest #Installname) (settooltype "IBUTTONSBYTEXT" #IButtonsByTextStr))
  184.                 )
  185.                 (
  186.                     (working #DeletingIBBT)
  187.                     (tooltype (dest #Installname) (settooltype "IBUTTONSBYTEXT"))
  188.                 )
  189.             )
  190.         )
  191.         (
  192.             (working #W_DeletingIBTT)
  193.             (tooltype (dest #Installname) (settooltype "IMG_YES"))
  194.             (tooltype (dest #Installname) (settooltype "IMG_NO"))
  195.             (tooltype (dest #Installname) (settooltype "IMG_CANCEL"))
  196.             (tooltype (dest #Installname) (settooltype "IBUTTONSBYTEXT"))
  197.         )
  198.     )
  199. )
  200.  
  201. (procedure F_Booltype _name _onoff
  202.     (if (= _onoff 1)
  203.         (
  204.             (working #W_SettingTT _name)
  205.             (tooltype (dest #Installname) (settooltype _name "1"))
  206.         )
  207.         (
  208.             (working #W_DeletingTT _name)
  209.             (tooltype (dest #Installname) (settooltype _name))
  210.         )
  211.     )
  212. )
  213.  
  214. (procedure F_InstallMRQ
  215.     (F_GetDir #P_WInstall #H_WInstall "SYS:wbstartup")
  216.     (set #WhereMRQ #Where)
  217.     
  218.     (set @default-dest #WhereMRQ)
  219.     (set #Installname (tackon #WhereMRQ "MRQ"))
  220.     
  221.     (set #Oldversion (getversion #Installname))
  222.     (set #MRQVersion (getversion "MRQ"))
  223.     (set #OldVer (/ #Oldversion 65536))
  224.     (set #OldRev (- #Oldversion (* #OldVer 65536)))
  225.     (set #MRQVer (/ #MRQVersion 65536))
  226.     (set #MRQRev (- #MRQVersion (* #MRQVer 65536)))
  227.     (set #OldExists (or #OldVer #OldRev))
  228.     
  229.     (message (cat
  230.         (cat #M_VersionToInstall #MRQVer "." #MRQRev "\n\n")
  231.         (if #OldExists
  232.             (cat #M_InstalledVersion #OldVer "." #OldRev)
  233.             (#M_NoInstalledVer)
  234.         ))
  235.     )
  236.     
  237.     (F_findconfig)
  238.     (F_findimages)
  239.     
  240.     (set #CopyCfg
  241.         (if (exists #Configfile)
  242.             (askbool
  243.                 (prompt (cat #P_CopyCfg1 #Configfile #P_CopyCfg2))
  244.                 (help #H_CopyCfg)
  245.             )
  246.             1
  247.         )
  248.     )
  249.     
  250.     (if (exists #WhereImages)
  251.         (set #CheckNewImgs 
  252.             (askbool
  253.                 (prompt (cat #P_CheckImageDir #WhereImages " ?"))
  254.                 (help #H_CheckImageDir)
  255.                 (choices #C_CheckNewImgs1    #C_CheckNewImgs2)
  256.             )
  257.         )
  258.     )
  259.     
  260.     (complete 10)
  261.     
  262.     (working "Copying the MRQ executable")
  263.     (if #OldExists
  264.         (F_copymrq 0)
  265.         (
  266.             (F_copymrq 1)
  267.             (tooltype (dest #Installname) (settooltype "CONFIGFILE" #Configfile))
  268.             (tooltype (dest #Installname) (settooltype "IMAGES" #WhereImages))
  269.         )
  270.     )
  271.     
  272.     (complete 30)
  273.     
  274.     (if #CopyCfg (F_copyconfig))
  275.     
  276.     (complete 50)
  277.     
  278.     (if #CheckNewImgs
  279.         (
  280.             (foreach "MRQ-images" "#?"
  281.                 (
  282.                     (if    (not (exists (tackon #WhereImages @each-name)))
  283.                         (
  284.                             (expertmsg (cat #M_Copying1Img @each-name))
  285.                             (copyfiles (source (tackon "MRQ-images" @each-name)) (dest #WhereImages) (optional askuser))
  286.                         ) 
  287.                     )
  288.                 )
  289.             )
  290.             (expertmsg #M_ImgDirUp2D)
  291.         )
  292.         (if (not #OldExists)
  293.             (
  294.                 (expertmsg (cat #M_CopyingAllImages #WhereImages))
  295.                 (foreach "MRQ-images" "#?"
  296.                     (copyfiles (source (tackon "MRQ-images" @each-name)) (dest #WhereImages) (optional askuser))
  297.                 )
  298.             )
  299.         )
  300.     )
  301.     
  302.     (complete 80)
  303.     
  304.     (if
  305.         (askbool
  306.             (prompt #P_ConfigureMRQ)
  307.             (help #H_PConfigureMRQ)
  308.         )
  309.         (F_ConfigMRQ)
  310.     )
  311.     
  312.     (complete 100)
  313. )
  314.  
  315.  
  316.  
  317.  
  318.  
  319. ;************** START **************
  320. (if (< @installer-version 2752524) (abort "This script requires Installer V42.12 or greater!"))
  321.  
  322. ; !4 NOVICEs
  323. (if (= @user-level 0) (set @user-level 1))
  324.  
  325. ;no english-only config available yet
  326. (if (= @language "english") (set #cfgsrc "MRQ.config") (set #cfgsrc "MRQ.config"))
  327.  
  328.  
  329. ;************** initialize variables **************
  330. (if (= @language "deutsch")
  331.     (
  332.     (set #W_Yes "Ja")
  333.     (set #W_No "Nein")
  334.     (set #W_Cancel "Abbruch")
  335.     (set #W_Install "Installieren")
  336.     (set #W_Configure "Konfigurieren")
  337.     (set #M_Welcome "\n\nWillkommen zum Installationsprogramm für\n\nMRQ\n\nThe MUI requester improver")
  338.     (set #P_InstOrCfg "Was wollen sie machen?")
  339.     (set #H_InstOrCfg (cat "\"" #W_Install "\" installiert MRQ komplett neu oder aktualisiert "
  340.     "eine vorhandene Version, danach kann das Programm konfiguriert werden\n\"" #W_Configure
  341.     "\" ändert nur die Tooltypes eines bereits installierten MRQ, ohne andere Dateien zu"
  342.     " verändern\n"))
  343.     (set #E_Need020 "MRQ braucht mindestens einen 68020-Prozessor!")
  344.     (set #P_WInstall "Wo soll MRQ installiert werden?")
  345.     (set #H_WInstall "Das eigentliche Programm wird in dieses Verzeichnis kopiert.Wenn MRQ beim Booten automatisch gestartet werden soll, übernehmen sie einfach das voreingestellte Verzeichnis")
  346.     (set #P_WImages "Wohin sollen die Bilder kopiert werden?\n(ein Verzeichnis wird angelegt)")
  347.     (set #H_WImages "Der Installer wird ein Unterverzeichnis namens\n\"MRQ-Images\"\nim ausgewählten Verzeichnis anlegen und dorthin alle Bilder kopieren")
  348.     (set #P_WConfig "Wohin soll die Konfigurationsdatei kopiert werden?")
  349.     (set #H_WConfig "Eine kleine Datei namens \"MRQ.config\" wird in dieses Verzeichnis kopiert")
  350.     (set #M_NoInstalledVer "Bisher ist keine Version installiert")
  351.     (set #M_CopyingConfig "Kopiere Konfigurationsdatei nach ")
  352.     (set #M_CopyingMRQ "Kopiere MRQ ")
  353.     (set #M_To "nach ")
  354.     (set #M_CopyingMRQIcon "und sein Piktogramm ")
  355.     (set #M_KeepingMRQIcon "\n(das alte Piktogramm wird nicht überschrieben)")
  356.     (set #M_VersionToInstall "\n\nZu installierende Version: V")
  357.     (set #M_InstalledVersion "Bisher installierte Version: V")
  358.     (set #P_CopyCfg1 "Konfigurationsdatei ")
  359.     (set #P_CopyCfg2 " existiert schon.\nMit neuer Konfiguration überschreiben?")
  360.     (set #H_CopyCfg "Geben sie an, ob sie ihre alte Konfigurationsdatei mit der neuen aus dieser Distribution überschreiben wollen oder nicht")
  361.     (set #C_CheckNewImgs1 "Neue Bilder kopieren")
  362.     (set #C_CheckNewImgs2 "Nichts kopieren")
  363.     (set #P_CheckImageDir "\n\nSoll die Distribution auf neue Bilder überprüft werden?\nNeue Bilder würden installiert nach ")
  364.     (set #H_CheckImageDir (cat
  365.     "Wenn sie \"" #C_CheckNewImgs1 "\" auswählen, überprüft der Installer, ob in der Distribution "
  366.     "neue Bilder enthalten sind, die noch nicht in ihrem Bilderverzeichnis installiert sind. "
  367.     "Sollte er welche finden, werden sie dorthin kopiert.\n\n\"" #C_CheckNewImgs2
  368.     "\" beläßt das Bilderverzeichnis genauso wie es jetzt ist."))
  369.     (set #M_CopyingAllImages "Kopiere alle Bilder nach ")
  370.     (set #M_Copying1Img "Kopiere Bild: ")
  371.     (set #M_ImgDirUp2D "Bilderverzeichnis ist auf dem aktuellen Stand!")
  372.     (set #P_ConfigureMRQ "Wollen sie MRQ jetzt konfigurieren?")
  373.     (set #H_PConfigureMRQ "Sie können MRQs Grundparameter jetzt konfigurieren, indem sie menügeführt einige Tooltypes setzen.")
  374.     (set #P_ConfigOpts1 "Allgemeine Optionen")
  375.     (set #H_ConfigOpts1 (cat
  376.     "Die Bedeutung der Optionen im einzelnen:\n\n"
  377.     "CENTERTEXT  : Alle Texte im Requester zentrieren (sonst nur bei einzeiligen Requestern)\n\n" 
  378.     "FRONTSCREEN: Requester immer auf dem vordersten Bildschirm öffnen (Hack!)\n\n"
  379.     "MOUSEREQ: Requester an der Mausposition statt zentriert auf dem Bildschirm öffnen\n\n"
  380.     "NORTPATCH: reqtools.library nicht patchen\n\n"
  381.     "SAMEWIDTH: Alle Knöpfe gleich breit darstellen (sieht besser aus)\n\n"
  382.     "SINGLEFRAME: Einen Rahmen um Bild und Text legen statt beide getrennt einzurahmen (Geschmackssache)\n\n"
  383.     "SIZEABLE: Requester mit Größengadget versehen (nicht empfehlenswert)\n\n"
  384.     "TRANSPARENCY: MUIs Pattern oder Hintergrundfarbe durchscheinen lassen, wo in Bildern Hintergrundfarbe (Nummer 0) vorkommt\n\n"
  385.     ))
  386.     (set #P_IButtons "Imagebutton-Optionen")
  387.     (set #H_IButtons "Bitte lesen sie die Anleitung für nähere Informationen zu den Imagebuttons!") 
  388.   (set #C_UseIMB1 "pKnöpfe mit Sybolen verwenden")
  389.     (set #C_UseIMB2 "Symbole nach Text auswählen")
  390.     (set #P_IButtonSet "Bitte wählen sie ein Set Knöpfe aus")
  391.     (set #H_IButtonSet "Die zwei mitgelieferten Sets:\n\nM$ Windows-artig\nZiemlich groß, sehen ab Auflösungen von 800x600 gut aus\n\nKlein\nWie der Name sagt, ein kleineres Set für kleinere Auflösungen")
  392.     (set #C_SelectIBSet1 "M$ Windoofs")
  393.     (set #C_SelectIBSet2 "Klein")
  394.     (set #C_SelectIBSet3 "Eigene (Bilder selbst auswählen)")
  395.     (set #P_AskCustomIB "Bitte ein Bild auswählen für \"%s\"")
  396.     (set #H_AskCustomIB "Wählen sie hier ein Bild aus. Es darf jedes Format haben, für das sie einen datatype installiert haben")
  397.     (set #P_IBBT "Bitte wählen sie einen Text für \"%s\" aus")
  398.     (set #H_IBBT (cat "Das entsprechende Bild wird auf den Imagebutton gelegt, wenn einer der"
  399.     "angegebenen Texte auf dem Knopf gefunden wird.\nDas Format ist: beliebig viele Wörter (Groß-"
  400.     "/Kleinschreibung unwichtig), getrennt mit senkrechten Strichen/"Pipes" ('|')"))
  401.     (set #P_RemapPrecision "Wie genau sollen die farben der Bilder auf den Bildschirm angepasst werden?")
  402.     (set #H_RemapPrecision (cat
  403.     "Diese Einstellung sagt dem Datatypes-System, wann eine Farbe auf einem bestimmten Bildschirm "
  404.     "genau genug für ein Bild paßt und wann besser eine neue allokiert werden sollte. Je höher die "
  405.     "Genauigkeit (Exact > Image > Icon > GUI), desto besser sehen die Bilder aus, aber desto mehr Faben "
  406.     "belegen sie auch, die dann für andere Programme nicht mehr zur Verfügung stehen (natürlich nur "
  407.     "solange der jeweilige Requester offen ist)"))
  408.     (set #P_WInstalled "Wo ist MRQ auf ihrem System installiert?")
  409.     (set #H_WInstalled "Sie müssen MRQ installiert haben, bevor sie ihn konfigurieren können. Wählen sie nur das Verzeichnis aus, das Pogramm darin muß \"MRQ\" heißen und ein Piktogramm haben")
  410.     (set #E_CantFindMRQ "In diesem Verzeichnis ist kein Programm namens \"MRQ\"!")
  411.     (set #W_SettingIBTT "Setze Imagebutton-Tooltypes")
  412.     (set #W_DeletingIBTT "Lösche Imagebutton-Tooltypes")
  413.     (set #W_SettingTT "Setze Tooltype:\n\n")
  414.     (set #W_DeletingTT "Lösche Tooltype:\n\n")
  415.     (set #W_SettingIBBT "Setze IBUTTONSBYTEXT")
  416.     (set #W_DeletingIBBT "Lösche IBUTTONSBYTEXT")
  417.     (set #IBBTDefaultString_Yes "yes|ok|delete|retry|nochmal|ja")
  418.     (set #IBBTDefaultString_No "no|nein")
  419.     (set #IBBTDefaultString_Cancel "cancel|abort|abbr")
  420.     )
  421.  
  422.     (
  423.     (set #W_Yes "Yes")
  424.     (set #W_No "No")
  425.     (set #W_Cancel "Cancel")
  426.     (set #W_Install "Install")
  427.     (set #W_Configure "Configure")
  428.     (set #M_Welcome "\n\nWelcome to\n\nMRQ\n\nThe MUI requester improver")
  429.     (set #P_InstOrCfg "What do you want to do?")
  430.     (set #H_InstOrCfg (cat "\"" #W_Install "\" installs or upgrades MRQ and lets you configure "
  431.     "it afterwards.\n\"" #W_Configure "\" only changes MRQ's tooltypes without modifying any "
  432.     "other files\n"))
  433.     (set #E_Need020 "MRQ requires at least a 68020 CPU!")
  434.     (set #P_WInstall "Where do you want MRQ to be installed?")
  435.     (set #H_WInstall "The MRQ executable will be copied to this directory. If you want MRQ to start automatically on bootup, just accept the default.")
  436.     (set #P_WImages "Where do you want the images to be copied?\n(a directory will be created)")
  437.     (set #H_WImages "The installer will create a directory called\n\"MRQ-Images\"\ninside the directory you select and copy all images there")
  438.     (set #P_WConfig "Where do you want to keep the config file?\n")
  439.     (set #H_WConfig "A small file called \"MRQ.config\" will be copied to this directory")
  440.     (set #M_NoInstalledVer "There is no previously installed version")
  441.     (set #M_CopyingConfig "Copying config file as ")
  442.     (set #M_CopyingMRQ "Copying MRQ ")
  443.     (set #M_To "to ")
  444.     (set #M_CopyingMRQIcon "and its icon ")
  445.     (set #M_KeepingMRQIcon "\n(old icon will not be overwritten)")
  446.     (set #M_VersionToInstall "\n\nVersion to install: V")
  447.     (set #M_InstalledVersion "Already installed version: V")
  448.     (set #P_CopyCfg1 "Config file ")
  449.     (set #P_CopyCfg2 " already exists\nCopy new config anyway?")
  450.     (set #H_CopyCfg "Select whether you want to overwrite your old config with the new one or not")
  451.     (set #C_CheckNewImgs1 "Copy new images")
  452.     (set #C_CheckNewImgs2 "Don't copy anything")
  453.     (set #P_CheckImageDir "\n\nShould the distribution be checked for any new images that are not yet installed in ")
  454.     (set #H_CheckImageDir (cat
  455.     "If you select \"" #C_CheckNewImgs1 "\", installer will check for files in the distribution's MRQ-images "
  456.     "directory that you don't have in your image directory yet and copy them if it finds any.\n\n\""
  457.     #C_CheckNewImgs2 "\" leaves your image directory as it is."))
  458.     (set #M_CopyingAllImages "Copying all images to ")
  459.     (set #M_Copying1Img "Copying image: ")
  460.     (set #M_ImgDirUp2D "Image directory is up to date!")
  461.     (set #P_ConfigureMRQ "Do you want to configure MRQ now?")
  462.     (set #H_PConfigureMRQ "You may configure MRQ's basic behavior by setting some tooltypes now")
  463.     (set #P_ConfigOpts1 "General options")
  464.     (set #H_ConfigOpts1 (cat
  465.     "Here's the meaning of the individual options:\n\n"
  466.     "CENTERTEXT  : Center all text displayed in a requester\n\n" 
  467.     "FRONTSCREEN: Open requesters on frontmost screen (hack!)\n\n"
  468.     "MOUSEREQ: Open requesters at the mouseposition instead of centered on the screen\n\n"
  469.     "NORTPATCH: Do not patch reqtools.library\n\n"
  470.     "SAMEWIDTH: Make all buttons the same width (looks nicer)\n\n"
  471.     "SINGLEFRAME: Put a single frame around image and text instead of one around each\n\n"
  472.     "SIZEABLE: make requesters sizeable (not recommended)\n\n"
  473.     "TRANSPARENCY: Let MUI's image background shine through where images have background color (#0)\n\n"
  474.     ))
  475.     (set #P_IButtons "Imagebutton options")
  476.     (set #H_IButtons "See the guide file for detailed info on the imagbutton options!") 
  477.   (set #C_UseIMB1 "pUse imagebuttons")
  478.     (set #C_UseIMB2 "Select by buttontext")
  479.     (set #P_IButtonSet "Select the set of buttons to use")
  480.     (set #H_IButtonSet "The two included button sets:\n\nM$ Windoze style\nQuite big, looks good on 800x600 and up\n\nSmall\nAs it says, a smaller set for lower resolutions")
  481.     (set #C_SelectIBSet1 "Windoze")
  482.     (set #C_SelectIBSet2 "Small")
  483.     (set #C_SelectIBSet3 "Custom (select images yourself)")
  484.     (set #P_AskCustomIB "Select an image for \"%s\"")
  485.     (set #H_AskCustomIB "Select an image file. This can be in any format you have a datatype for")
  486.     (set #P_IBBT "Select an imagebutton matchtext for \"%s\"")
  487.     (set #H_IBBT "The format of string is:\nAny number of words you want to match on, separated by pipe characters ('|')")
  488.     (set #P_RemapPrecision "Select a remap precision for images")
  489.     (set #H_RemapPrecision (cat
  490.     "This setting tells the datatypes system if a color found on a given screen is suitable to "
  491.     "be used for some picture or if it has to allocate a new color\nThe higher the precision"
  492.     "(Exact > Image > Icon > GUI) the better an image will look but also the more colors it will take"
  493.     "away from other applications (obviously only as long as their requester is open)"))
  494.     (set #P_WInstalled "Where is MRQ installed on your system?")
  495.     (set #H_WInstalled "You need to have MRQ installed before you can configure it. Select only the directory, the executable must be called \"MRQ\" and have an icon")
  496.     (set #E_CantFindMRQ "There is no file called \"MRQ\" in this directory!")
  497.     (set #W_SettingIBTT "Setting imagebutton tooltypes")
  498.     (set #W_DeletingIBTT "Deleting imagebutton tooltypes")
  499.     (set #W_SettingTT "Setting tooltype:\n\n")
  500.     (set #W_DeletingTT "Deleting tooltype:\n\n")
  501.     (set #W_SettingIBBT "Setting IBUTTONSBYTEXT")
  502.     (set #W_DeletingIBBT "Deleting IBUTTONSBYTEXT")
  503.     (set #IBBTDefaultString_Yes "yes|ok|delete|retry")
  504.     (set #IBBTDefaultString_No "no")
  505.     (set #IBBTDefaultString_Cancel "cancel|abort")
  506.     )
  507. )    
  508.  
  509.  
  510. ;************** work starts **************
  511. (message #M_Welcome)
  512. (welcome)
  513.  
  514. (set #CPU (database "cpu"))
  515. (if (< #CPU 68020) (abort #E_Need020))
  516.  
  517. (if
  518.     (askchoice
  519.         (prompt #P_InstOrCfg)
  520.         (help #H_InstOrCfg)
  521.         (choices #W_Install #W_Configure)
  522.         (default 0)
  523.     )
  524.     (
  525.         (F_GetDir #P_WInstalled #H_WInstalled "SYS:wbstartup")
  526.         (set #WhereMRQ #Where)
  527.         (set @default-dest #WhereMRQ)
  528.         (set #Installname (tackon #WhereMRQ "MRQ"))
  529.         (if (exists #Installname)
  530.             (F_ConfigMRQ)
  531.             (message #E_CantFindMRQ)
  532.         )
  533.     )
  534.     (F_InstallMRQ)
  535. )
  536.